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INDUSTRIA OGGI 


ELETTRONICA OGGI 





La rivista dei nuovi servizi 
interattivi telematici: 
applicazioni, fornitori 
di informazione, utilizzo. 

Abb. annuo 
6 numeri 
lire 20.000 
anziché lire^SLOtìQ 


L’informatica 
professionale: 
dall'elaborazione dati 
all’office automation. 
Servizi speciali 
e anticipazioni 
esclusive dalla Silicon 
Valley. 

Abb. annuo 
11 numeri 
lire 40.000 
anziché lire^SfiStìf^ 


VIDEOTEL MAGAZINE 


La più autorevole rivista 
italiana di componenti, 
strumentazione ed 
elettronica professionale. 

Abb. annuo 
20 numeri 
lire 64.000 
anziché lire jjÒ-OOQ 


INFORMATICA OGGI 


Industria 


Il mensile dell’alta 
tecnologia nell’industria 
moderna: soluzioni 
applicative e nuovi 
orientamenti in R&S, 
produzione e servizi. 
Abb. annuo 
10 numeri 
lire 41.000 
anziché lirejS^OtiÓ 




VIDEOGIOCHI NEWS _ COMPUSCUOLA 


L’informatica nella 
didattica: problemi, 
esperienze e prospettive 
del computer nel mondo 
della scuola. 

Abb. annuo 
9 numeri 
lire 21.000 
anziché lire^7=6QQ 


STRUMENTI MUSICALI 



Il giornale di videogames 
e home computer, con 
recensioni di giochi 
sempre nuovi. 

Abb. annuo 
11 numeri 
lire 18.000 
anziché lire^22?SfiQ 


£* Scuola 

l UrnittidiiidCTiuUundkdidaaiapcrUuialiitjttiM 



mcuH>\il 

IM.l LSTff.\| 

IMMUM 



Il mensile per i 
professionisti della 
musica: audiotest, 
rassegne, computer 
music, servizi, interviste. 
Abb. annuo 
11 numeri 
lire 35.000 
anziché lire 




















































AUTOMAZIONE OGGI 


ELETTRONICA, STRUMENTAZIONE 

& AUTOMAZIONE PRODUCT NEWS 



Robotica, controllo 
numerico, CAD/CAM, 
sistemi flessibili- 
problemi e soluzioni per 
la nuova automazione 
industriale. 

Abb. annuo 
11 numeri 
lire 46.000 
anziché lire 5}£8Qjf 


ELETTRONICA 
STRUMENTAZIONE 
& AUTOMAZIONE 
PRODUCT NEWS 



Il giornale di tutti i nuovi 
prodotti dell'elettronica, 
della strumentazione 
dell’automazione 
industriale e 

dell'elettronica medicale. 

Abb. annuo 
11 numeri 
lire 26.000 
anziché lire^33?Ql5p 


PC & COMPUTER PRODUCT NEWS PC WORLD MAGAZINE 


TRASMISSIONE DATI 

E TELECOMUNICAZIONI 


Traittiiuioni Dati 

TclBcnimmlcuUml 





Il mensile dei nuovi 
sistemi 

di telecomunicazioni, data 
Communications 
e telematica. 

Abb. annuo 
11 numeri 
lire 36.000 
anziché lire^ikQQtf 


BIT 



Il giornale di tutti i nuovi 
prodotti hardware e 
software dell’informatica: 
dai medi sistemi 
al Personal Computer. 
Abb. annuo 
11 numeri 
lire 27.000 
anziché lire 


PC 

MAGAZINUi 


Ihiruurd total 
PEbicCt meflSgtT 

fjii'rtfaai 

LnAt..,lmc ahUc 

Quassu 




La prima e unica rivista 
italiana per gli utenti di 
personal computer IBM 
Olivetti e compatibili. 

Abb. annuo 
11 numeri 
lire 44.000 
anziché lire 



La prima rivista europea, 
la più famosa 
e autorevole in Italia, 
di personal, home, 
business computer, 
software e accessori. 
Abb. annuo 
11 numeri 
lire 43.000 
anziché lire 



ELETTRONICA HOBBY 



La rivista per l’hobbista 
elettronico, il 
radioamatore, il 
riparatore radio-TV, 
l'hardware dei personal 
computer. 

Abb. annuo 
12 numeri 
lire 32.000 
anziché lire 



COMPUTER GRAFICA_ 

& APPLICAZIONI i_ a r j v j s t a della grafica e 
dell’immagine con il 
computer: applicazioni 
pratiche per l’industria, le 
professioni e i servizi. Dal 
CAD/CAM alla pubblicità. 
Abb. annuo 
4 numeri 
lire 19.000 
anziché lire^2£QQ(T 


NOI 028 E C64 



SUPERCOMMODORE 64 & 128 





La prima rivista con 
cassette programmi, 
dedicate agli utenti home 
computer Commodore 
64 e 128. 

Abb. annuo 
11 numeri 
lire 66.000 
anziché lire 82^00” 


OLIVETTI PRODEST USER 





L'unica rivista per gli 
utenti dei sistemi Olivetti 
Prodest PC128 e PC128S. 
Una guida all’uso 
indipendente e completa. 
Abb. annuo 
6 numeri 
lire 15.000 
anziché lireTlM10tf 


La rivista con disco o 
cassetta dei package 
professionali, modelli 
applicativi e giochi 
intelligenti. 

Abb. annuo 11 numeri 
(versione con cassetta) 
lire 70.000 
anziché lireYjìWìffS 
(versione con disco) 
lire 115.000 
anziché lireTj4<ClOO 


NAUTICAL OUARTERLY 


Il trimestrale di cultura 
nautica più prezioso e 
raffinato del mondo. 
Emozioni da leggere, 
guardare e conservare. 
Abb. annuo 
4 numeri 
lire 70.000 
anziché lire^SOsCtQp 


AUTOMOBILE OUARTERLY 


Il trimestrale più 
prestigioso e raffinato del 
mondo, dedicato all'auto, 
alla sua storia, ai suoi 
miti. 

Per chi intende l’auto 
come un fatto di cultura 
e di passione. 

Abb. annuo 
4 numeri 
lire 69.500 
anziché Iirej8@>0g0 






































































































O gni mese in edicola 

troverete questa nuovo 
rivisto-compilotion con 
cassetto dedicato ai 
computer MSX. 

La cassetta reca un 
videogame originale , 
direttamente dall'Inghilterra , 
scelto tra quelli che si trovano 
ai vertici delle classifiche. La 
descrizione del videogame è 
una recensione accurata e 
approfondita con i consigli di 
un superesperto per diventare 
dei veri campioni. 

Oltre al gioco, una serie di 


listati riguardanti giochii, 
grafica, utility , da battere 
direttamente e poi gli articoli 
più disparati per conoscere a 
fondo i segreti e i trucchi del 
vostro computer. 

Questo è Jackson Soft 
Compilation: una 
pubblicazione unica perché 
ogni videogame è il meglio 
che si può trovare sul 
mercato e le relative 
recensioni vere e proprie 
guide al gioco, perché i listati 
sono autentici , perché gli 
articoli sono validi. 


O li Gruppo Editoriale Jackson, propietario esclusivo dei diritti 
per l'Italia di questo gioco, invita i lettori che ne fossero a 
conoscenza, a segnalare l'esistenza di eventuali altre pubblicazioni 
contenenti questo stesso gioco, alla redazione della nostra rivista. 
Tali segnalazioni saranno convenientemente compensate. 
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le tariffe di abbonamento Jackson 86-87 


RIVISTA 

NUMERI 

ANNUI 

TARIFFE 

ABBONAMENTO 

PROFESSIONALI 

INDUSTRIA OGGI 

10 

lire 41.000Wizichè lire 50.000 / 

ELETTRONICA OGGI 

20 

lire 64.000 anziché lire 80.000/ 

AUTOMAZIONE OGGI 

11 

lire 46.000 anziché lire 55.000 

ELETTRONICA, STRUMENTAZIONE & AUTOMAZIONE PRODUCT NEWS 

11 

lire 26.000 anziché lire 33.000 

TRASMISSIONE DATI E TELECOMUNICAZIONI 

11 

lire 36.000 anziché lire 44.000 

VIDEOTEL MAGAZINE 

6 

lire 20.000 anziché lire 24000 

INFORMATICA OGGI 

11 

lire 40.000 anziché lire 491500 

PC & COMPUTER PRODUCT NEWS 

11 

lire 27.000 anzichèVire 33.000 

COMPUTER GRAFICA & APPLICAZIONI 

4 

lire 19.000 anziché Ve 04.000 

PERSONAL 

E HOME 
COMPUTER 

PC WORLD MAGAZINE 

11 

lire 44.000 anziché line / 55.000 

BIT 

11 

lire 43.000 anziché lira 55.000 

SUPERCOMMODORE 64 & 128 

11 

lire 66.000 anziché line\ 82.500 

NOI CI28 E C64 (con cassetta) 

11 

lire 70.000 anziché Ijre V)9.000 

NOI CI28 E C64 (con disco) 

11 

lire 115.000 anzichè/ire 144.000 

OLIVETTI PRODEST USER 

6 

lire 15.000 anziché lire 18.000 

VIDEOGIOCHI NEWS 

11 

lire 18.000 anziché lire 22)000 

COMPUSCUOLA 

9 

lire 21.000 anzionè lire 27.000 

HOBBY E 
TEMPO LIBERO 

ELETTRONICA HOBBY 

12 

lire 32.000 anziché lire 42.0(30 

STRUMENTI MUSICALI 

11 

lire 35.000 an/ichè lire 44.00)5 

CULTURA 
& PRESTIGIO 

NAUTICAL QUARTERLY 

4 

lire 70.000 anziché lire 80.000\ 

AUTOMOBILE QUARTERLY 

4 

lire 69.500 anziché lire 80.000 \ 

N.B. - Per abbonamenti all’estero le tariffe dovranno essere raddoppiate. Non è prevista la spedizione via aerea. 


i privilegi riservati agli abbonati Jackson 


Agenda 

monografica 

Jackson 

Elegante e raffinata, l'agenda 
settimanale Jackson è ^ qual¬ 
cosa di più di una dellémiglio- 
ri agende: oltre a riprendere 
la prestigiosa linea editoriale 
di Nautical Quarterly e Auto¬ 
mobile Quarterly, ha caratte¬ 
re monografico e, nell’edizio¬ 
ne 1987, è dedicata alla Com¬ 
puter-Art, con splendide im- 



Questa agenda diventerà una 
costante nei privilegi riservati 
agli abbonati Jackson e costi¬ 
tuirà un vero e proprio ogget¬ 
to da collezione, il cui valore 
aumenterà nel tempo. . 
L'edizione 1987 sarà inviata 

soltanto a coloro che risulte¬ 


ranno regolarmente abbonati 

al 30 novembre 1986 ad al¬ 

meno una rivista la cui tariffa 
di abbonamento è superiore 

a L. 30.000._ 

Naturalmente chi sottoscrive¬ 
rà o rinnoverà l’abbonamento 
dopo tale data, acquisirà il di¬ 
ritto a ricevere automatica- 
mente l'edizione 1988. 
L’agenda Jackson 1987 sarà 
posta anche in vendita, al 
prezzo di lire 20.000. 

Jackson Magazine 

L'altra straordinaria novità, 
che accompagnerà gli abbo¬ 
nati Jackson nel corso del 
1987. 


Una vera e propria rivista tri¬ 



mestrale, contenente una se¬ 
lezione dei migliori articoli 
pubblicati dai periodici Jack¬ 
son e un aggiornamento co¬ 
stante sul mondo dell'alta tec¬ 
nologia. Non solo: Jackson 
Magazine sarà anche l’occa¬ 
sione di un dialogo diretto 
con Jackson per scoprire, in 
anticipo, programmi e iniziati¬ 
ve future e per trasmetterci 
suggerimenti, impressioni e 
desideri. 



Risparmio 

assicurato 


Gli abbonati 
alle riviste, Jack¬ 
son possono contare su un 
duplice risparmio: una tariffa 
privilegiata, come indicato 
nella tabella e la garanzia del 
prezzo bloccato per l'intera 
durata del proprio abbona¬ 
mento, oltre alla certezza di 


non perdere alcun numero 
delle loro riviste preferite. 

Sconto 20% 
sui Jibri Jackson 

È questo un altro significativo 
privilegio riservato agli abbo¬ 
nati Jackson: lo sconto del 



20% su tutti i libri del catalo¬ 
go Jackson, per acquisti effet¬ 
tuati fino al 28/2/1987 diret¬ 
tamente all’editore. Dopo tale 
data, e per tutta la durata 
aeH’abbonamento, tale scon¬ 
to privilegiato sarà del 10%. 

Offerte speciali 
e riservate 

Nel corso dell’anno, periodi¬ 
camente, saranno inviate al¬ 
cune offerte speciali, che il 
Gruppo Editoriale Jackson ri¬ 
serverà ai soli abbonati. Tali 


offerte consentiranno l'acqui¬ 
sto di selezioni di libri, grandi 
opere e software, a condizioni 



ABBONARSI 
È FACILE! 
UTILIZZATE 
IL MODULO 
DI CONTO 
CORRENTE 
POSTALE GIÀ 
PREDISPOSTO 
E/O LA SPECIALE 
“BUSTA- 

ABBONAMENTI” 
INSERITI 
IN QUESTA 
RIVISTA 
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SUPERGAME XP 
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V i siete già scor¬ 
dati della prima 
avventura cinemato¬ 
grafica ambientata al¬ 
l'interno del compu¬ 
ter? 

Spero di no e penso 
abbiate già capito di 
che cosa stiamo par¬ 
lando. Tron, il film pro¬ 
dotto dalla Walt Di¬ 
sney e rivoluzionario 
per gli eccezionali ef¬ 
fetti speciali, è presto 
diventato un vero cult- 
movie per tutti gli 
amanti ai tastiere, Rom e joystick. 
Immaginatevi cosa trovereste e 
riuscireste a ottenere entrando nei 
circuiti del vostro MSX per pro¬ 
grammarlo direttamente. 
Naturalmente la trama di Tron era 
meno pacifica e il viaggio di 
Flynn, il campione di videogiochi 
miniaturizzato, tra circuiti e chip 
del computer era ostacolato da 
numerosi imprevisti e difficoltà. 

Il destino dell'eroe di quella pelli¬ 
cola è simile a quello del guerrie¬ 
ro protagonista del primo gioco 
della serie J. Soft Compilation. 
DISC WARRIOR è infatti un'av¬ 
ventura chiaramente ispirata a 
TRON e l'Alligata, la Lacoste del¬ 
le software house, si è impegnata 
al massimo riuscendo a ottenere 
risultati strabilianti nella grafica in 
perfetta sintonia con quella realiz¬ 
zata dalla Walt Disney. 

IL GIOCO 

L'obiettivo della missione è di¬ 
struggere la CPU del computer 
ormai andato fuori di testa e di¬ 
ventato minaccioso per tutta l'or¬ 
ganizzazione. 

Per ottenere questo risultato il 
guerriero deve esplorare le varie 


zone che formano l'interno del 
computer, assemblare la super- 
bomba e raccogliere le parti della 
chiave principale indispensabili 
per la distruzione finale. 
L'avventura inizia quando il Disc 
Warriorsi materializza nella prima 
zona proprio sopra uno speciale 
teletrasportatore. L'accoglienza 
non è subito delle migliori, e do¬ 
vete subito affrontare androidi, 
robot a forma di cane e sfere 
mortali, tutti generati dalla follia 
criminale dei microprocessori del 
computer. 

Fortunatamente il DISC WAR¬ 
RIOR ha con se l'arma giusta per 
difendersi: lo speciale disco/boo¬ 
merang elettrificato ad alta po¬ 
tenza, capace di disintegrare 
qualsiasi oggetto che urta. Pro¬ 
prio questa speciale arma vi per¬ 
mette di avere un po' di tranquilli¬ 
tà durante la ricerca. 

Un altro aiuto potete riceverlo 
dagli speciali teletrasmettitori di 
particelle che trasportano il guer¬ 
riero da una zona all'altra oppu¬ 
re utilizzando gli speciali ascen¬ 
sori che permettono di superare 
le mura che delimitano le varie 
zone. 


Purtroppo avete una 
sola possibilità perché 
in questo gioco potete 
contare su una sola 
vita. Una volta esauri¬ 
ta l'energia la vostra 
missione avrà termine 
e il vostro obiettivo, 
fallito. 

Le zone, oltre ad ave¬ 
re una spettacolare 
grafica tridimensiona¬ 
le, contengono tra¬ 
bocchetti mortali co¬ 
me barriere e campi di 
forza che vi riducono 

l'energia. 

LO SCHERMO 

La parte inferiore dello schermo 
contiene informazioni molto utili 
durante la missione. 

Una barra indica il livello d'ener¬ 
gia a disposizione, il tempo che 
vi manca prima di raggiungere 
l'obiettivo stabilito e lo status in 
cui vi trovate: Green, Amber, 
Alert, Red (Green = tutto OK. 
Red = vi manca poco prima di 
"schiattare"). 

Infine, sotto questi dati vi vengono 
indicati gli oggetti raccolti. 

PUNTEGGI 

DISC WARRIOR è un videogioco 
completo che aggiunge allo spiri¬ 
to d'avventura di ogni platform 
game, l'obiettivo principale di 
ogni arcade game: fare il punteg¬ 
gio più alto possibile. 

Così alla fine del gioco vi viene 
comunicato un rapporto sulla 
percentuale dell'avventura risolta 
e sul numero delle zone visitate 
oltre al punteggio massimo rag¬ 
giunto. 

Per incrementare quest'ultimo do¬ 
vete darvi da fare con il vostro di- 
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LAKSITUNA. 

cento e uno premi 




1 premio 


In palio, fra tutti gli abbonati, 
una scattante, elegante, 

Alfa 33 4x4 giardinetta 
(1500 cc.) 
nella 


versione 
più 

prestigiosa 
e super 
accessoriata, 
perfettamente a suo agio in ogni 
situazione, potente e nello stesso tempo 
parca nei consumi, protagonista instancabile di mille avventure. 


100 premi 


Il fantastico orologio Time of Greenwich 
modello 120321. Uno strumento di altissima 
perfezione ed esclusività, in edizione limitata 
e personalizzata, realizzata appositamente 
per i fortunati vincitori abbonati Jackson, 
dalla prestigiosa Time of Greenwich. 
Distribuito in Italia da LED ITALY 


%neof 

(jreeniihck 

Dal 1884 segna il tempo dell'Universo. 


o 

oc 


Reg olamento del concorso 


1 ■ Il Gruppo Editoriale Jackson S.p.A. 
promuove un concorso a premi in occa¬ 
sione della Campagna Abbonamenti 
86/87. 

2 - Per partecipare è sufficiente sotto¬ 
scrivere, entro il 31.3.1987, un abbona¬ 
mento a una delle 20 riviste Jackson. 

3 - Sono previsti 1+100 premi da sor¬ 
teggiare fra tutti gli abbonati. 

4 -1° premio 

Un'automobile Alfa 33 4x4 giardinetta 
(1500 cc.). Gli altri 100 premi consistono 
in altrettanti orologi Time of Greenwich. 


5 - Gli abbonati a più di una rivista 
avranno diritto, per l’estrazione, all’inse¬ 
rimento del proprio nominativo tante 
volte quante sono le testate sottoscritte. 

6 - L’estrazione dei 1+100 premi in pa¬ 
lio avverrà presso la Sede della Jackson 
entro il 30.5.1987. 

7 - L’elenco dei vincitori, ad estrazione 
avvenuta, sarà pubblicato su almeno 10 
delle riviste Jackson. 

La vincita inoltre, sarà comunicata con 
lettera raccomandata a ciascuno dei sor¬ 
teggiati. 


8 - I premi verranno messi a disposizio¬ 
ne degli aventi diritto entro 30 giorni dal¬ 
la data dell’estrazione. 

9 - Le spese di immatricolazione della 
Alfa 33 4x4 giardinetta saranno a carico 
del vincitore. 

IO - I dipendenti, i familiari, i collabora¬ 
tori del Gruppo Editoriale Jackson sono 
esclusi dal concorso. 


GRUPPO EDITORIALE 

JACKSON 

„ _ DIVISIONE PERIODICI 

la Tua Rivista. 


















&SUPERGAME& 



sco boomerang e, come richiede 
il più classico degli shoot 'em up, 
eliminare il maggior numero di 
nemici. 

Anche se i punti più consistenti, 
10000, vengono assegnati quan¬ 
do raccogliete un oggetto, non 
male è il bottino per i numerosi 
alieni disintegrati. 

50 punti, 250 punti e 350 punti 
valgono rispettivamente i cani-ro¬ 
bot, gli androidi e le sfere mobili. 




COMANDI 

Il guerriero può essere guidato 
col joystick o la tastiera. I movi¬ 
menti corrispondono alle quattro 
direzioni e nel secondo caso utiliz¬ 
zate i tasti cursore. 

Per sparare e iniziare il gioco uti¬ 
lizzate il pulsante di fuoco o la 
barra spaziatrice a seconda del 
comando che avete selezionato. 

CONSIGLI 

Come abbiamo accennato, DISC 
WARRIOR è un gioco d'avventura 
dinamica con delle caratteristiche 
tipiche del genere arcade. 
Questo significa che avete poco 
tempo per prendere decisioni sul¬ 
le direzioni e su come raggiunge¬ 
re nuove zone. Difficile sarà an¬ 
che prendere appunti e poter così 
disegnare una mappa, sempre 
utile in questo genere di giochi. 

Vi possiamo dire che le zone sono 
ben 26 e non sarà sempre facile 
trovare il modo per avanzare e 
raggiungerne una nuova. In molti 
casi potete utilizzare il teletraspor¬ 
tatore, in altri gli ascensori. Molte 
volte il muro nasconde porte che 
possonà essere attraversate gra¬ 
zie alle tre speciali chiavi colorate, 
sparse in tutto il percorso. La pri¬ 
ma la trovate quasi subito. 

Molto utili sono anche le piccole 
celle energetiche che vi aumenta¬ 
no la barra d'energia veloce¬ 
mente. 

Tenete sempre presente che gli 
oggetti principali da recuperare 
sono le 5 parti che formano la 
chiave principale e quelle per 
l'assemblaggio della superbom¬ 
ba. Senza queste, ogni vostro 
sforzo sarà vano, anche perché 
non potete rimanere all'infinito a 
sparare dischi agli alieni senza di¬ 
struggere la CPU, operazione da 
portare a termine entro un certo 
limite di tempo. Molto pericolose 
sono le speciali barriere di forza e 
i pavimenti elettrificati. In questi 
due casi basta un movimento az¬ 
zardato per terminare immediata¬ 
mente la missione. Per esempio, 
nella prima zona trovate una bar¬ 
riera che continua a salire e scen¬ 
dere. Provate a superarla in due 
tentativi senza urtarla. 

Molto utili sono anche le speciali 
sovrascarpe di gomma. 

Queste e i due componenti che 

























costituiscono lo speciale radar 
sono abbandonati lungo il per¬ 
corso. 

Per concludere, l'energia diminui¬ 
sce con i campi di forza oppure 
quando il disc warrior viene colpi¬ 
to dai proiettili nemici ma aumen¬ 
ta con il tempo se riuscite a evita¬ 
re di urtare qualcuno di questi im 
previsti. 

ISTRUZIONI PER 
IL CARICAMENTO 

Dopo aver introdotto la cassetta 

con il nastro riavvolto all'inizio, nel 

registratore, digitate: 

load "CAS : ", R 

Quindi premete il tasto play sul 

registratore. 

Dopo lo schermo di caricamento 
dovete aspettare ancora un atti¬ 
mo prima che inizi il gioco. 


&SUPERGAME& 





GUIDA ALL'INPUT MSX 


Per motivi di stampa e chiarezza, i caratteri grafi¬ 
ci o comunque tutti i simboli il cui codice 
(ASC("car")) è superiore a 127, compaiono nei 
listati codificati in modo particolare. 

Ogni carattere o serie di caratteri uguali e conti¬ 
gui, è sostituito da graffe contenenti: 

• Il numero dei caratteri (omesso se= 1) 

• La lettera maiuscola "C" oppure "A" a se¬ 
conda se si tratta del set normale (caratteri otte¬ 
nuti con CHR$( 1 ) + CHR$(n)). 


• Codice "n" del carattere o dei caratteri da 
battere. 

Qualsiasi computer MSX voi abbiate, potete rife¬ 
rirvi al manuale per trovare la corrispondenza tra 
il codice-carattere dato e il simbolo a cui corri¬ 
sponde. 

ESEMPIO: 

{CI90} = battere 3 volte il carattere PI-GRECO 
{A67} = battere il carattere cuore. 


























QBERT 

Occupazione di memoria: 18112 Byte. Configurazione richiesta: almeno 32 KByte 


I l programma pro¬ 
pone il noto perso¬ 
naggio dei videogio¬ 
chi da bar in una ver¬ 
sione che gira sul vo¬ 
stro MSX. Lo scopo 
del gioco è (come no¬ 
to) quello di guidare il 
personaggio fino a 
colorare tutta la pira¬ 
mide di cubi. Gli 
schermi a disposizio¬ 
ne sono 8 e ogniuno 
viene raggiunto dopo 
aver terminato i pre¬ 
cedenti. 

Q-BERT viene mosso con i tasti cursore seconao il 
seguente schema: 


sali a destra . freccia cursore alto 


sali a sinistra . 

. freccia cursore sinistra 

scendi a destra . 

. freccia cursore destra 

scendi a sinistra . 

. freccia cursore basso 


Il programma inizia con la presentazione del gioco. 


Se si attendono alcuni 
secondi il programma 
va in DEMO e illustra 
tutti gli otto schemi di 
gioco. La pressione di 
un tasto vi porta al pri¬ 
mo schema. Il pro¬ 
gramma è stato scritto 
tutto in BASIC utiliz¬ 
zando lo schermo 
SCREEN 1 (quindi in 
modalità testo con l'u¬ 
so degli SPRITE). 

Nel programma è sta¬ 
ta usata la tecnica 
della sostituzione dei 
caratteri tradizionali con quelli grafici che rappre¬ 
sentano frammenti degli schermi di gioco. Per ripor¬ 
tare tutto alla normalità potete modificare la condi¬ 
zione di SCREEN. (Per esempio scrivendo SCREEN 
0 ). 

Q-BERT è inseguito dai soliti personaggi avversari e 
sono presenti anche le piattaforme di salvataggio: 
risulta molto veloce e nel listato non sono state inse¬ 
rite linee di commento per la scarsa disponibilità di 
memoria di alcuni compatibili. Buon divertimento. 




IO 




















410 AD=6145+ <SY+DY*2> *32+SX+DX:VP=VPEEK C 
AD):IF VP=32 OR VP=120 THEH DX=-DX 
420 FY=SY:FX=SX:SX=SX+DX:SY=SY+DY*2:DX=D 
X+l:DY=DY+1 

430 IF BY THEH ELSE IF RHDC1XHA! THEH R 
X=2:RY=2:VT!=VT!+.8:IF ABSCX1-X)>ABSCX2- 
X) THEH BX=X2:BY=Y2:GX=BX-1:GY=BY-2: GOTO 
480 ELSE BX=X1:BY=Y1:GX=BX-1:GY=BY-2:GO 
TO 480 ELSE 480 

440 AD=6145+BX+BY*32:VP=VPEEKCAD) : IF VP= 
32 OR VP=120 THEH BX=0:BY=0:PUT SPRITE 2 
, CO, 0) , 0, 0: GX=0:GY=0:VT!=VT!-.8:GOTO 480 
450 RY=1:RX=SGRCX-BX):IF RX=0 THER RX=-1 
460 AD=6145+BX+RX+CBY+RY*2)*32:VP=VPEEK< 
AD):IF VP=32 OR VP=120 THER RX=-RX 
470 GY=BY:GX=BX:BX=BX+RX;BY=BY+RY*2:RX=R 
X+l:RY=RY+1 

480 IF DI THER SOURD 8,13 

490 POR I !=1 TO 12 STEP VT! ! 1 = 1! 

500 IF DI THER PUT SPRITE 0, CXF*8+8+XCDI 
, I>,YF*8-4+Y<DI, I)),4,DI :SOURD 0,190+1*5 
510 IF SY THER PUT SPRITE 1,<FX*8+8+X<DD 
(DX.DY), I>,FY*8-4+Y CDD CDX,DY), I>>,6,5 
520 IF BY THER PUT SPRITE 2, <GX*8+8+X<DD 
CRX, RY> , I) ', GY*8-4+YCDDCRX, RY) , I) ) , 14,9 
530 IF TD=1 THER TD=0:VPOKE 8195,192 ELS 
E TD=1 :VPOKE 8185,48 

540 RBXT:SOURD 8,0:IF DI THER SOURD 13,0 
550 IF <Y=SY ARD X=SX) OR CX=BX ARD Y=BY 
) THER 590 ELSE 270 

560 SOURD 13,4:SOURD 12,1:SOURD 7,42:LOC 
ATE X, Y: PRIRT ” LOCATE X,Y+1:PRIRT ” 

”:SOURD 12,30:X=AX:Y=AY:XF=X-1 : YF=Y-2 : F 
OR T=1 TO 1200:REXT 

570 PUT SPRITE 0, <4+XF*8,8*YF-4),4,2:DI = 
2:SOURD 7,56:SOURD 12,10:GOTO 340 
580 SOURD 1,0:SOURD 8,13: FOR I=Y*8-4 TO 
192:PUT SPRITE 0, <X*8+8, I),5:SOURD 0,1: 
REXT:SOURD 8,0 

590 SOURD 1,3:SOURD 8,16:SOURD 12,2:SOUR 
D 13,10:FOR 1 = 0 TO 255:S0URD 0,I:SOUSD 1 
1,I:REXT:SOURD 11,0:SOURD 12,3:SOURD 1,4 
:FOR 1 = 1 TO 255:SOURD 0,I:SOUHD 11,I:REX 
T:FOR 1=0 TO 13:SOURD 1,0:REXT 
600 VI=VI—1:IF VI=0 THER 1220 ELSE 210 
610 VP=VPEEKCÀD+l):IF VP=105 THER LOCATE 
X,Y:PRIRT ”¥0” ELSE LOCATE X,Y:PRIRT 
: GOTO 640 
620 GOTO 640 

630 VP=VPEEKCAD+1):IF VP=105 THER LOCATE 
X,Y:PRIRT " + o” ELSE LOCATE X,Y:PRIRT ”t 

jU» 

640 LOCATE X.Y+l:PRIRT "O»":SC=SC+10: LOC 
ATE 6,0:PRIRT USIRG ”#####";SC:FI=FI-1: I 
F FI=0 THER RI=RI+1 ELSE 280 
650 PLAY ”slm59999t255162ddecfgfggdeafm3 
999911Oc”:FOR T=1 TO 40:FOR 1=1 TO 5: PU 
T SPRITE 0, , I :REXT I,T 

660 IF RI/4=RI\4 THER PLAY "160o5abfgdc” 

:VI=VI+1:FOR 1=1 TO 10:L0CATE 0,23:PRIRT 
"LIVELLO”! :PRIRT USIRG HI;: PRIRT ” 

VITE”; VI;:FOR T=1 TO 10 :RBXT:LOCAT 
E 0,23:PRIRT "LIVELLO";:PRIRT USIRG "##" 

; RI;::PRIRT" VITE "; :REXT 

670 FOR 1=0 TO 10: PUT SPRITE I,<0,0>,0, 
31:REXT 

680 IF PLAY CO) THER 680 ELSE 200 
690 :CLS:SCREER 0 : ERD 

700 CLS:PRIRT "PURTI LOCATE 6,0:PRIRT 
USIRG "#####”jSC:LOCATE 15,0:PRIRT "REO 
ORD";:LOCATE 24,0:PRIRT USIRG ”#####”;HS 
710 LOCATE 0,23:PRIRT "LIVELLO”;:PRIRT U 
SIHG RIPRIRT ” VITE”;VI; 


10 REM ***************************** 


20 REM * * 
30 REM * Q_BERT * 
40 REM * * 
50 REM * di Maurizio Galluzzo * 
60 REM * * 
70 REM * GRUPPO EDITORIALE JACKSOR * 
80 REM * * 


90 REM ***************************** 

100 BEM 
110 REM 

120 FOR 1 = 1 TO 10:KEY I,"":REXT 

130 CLEAR 500: DEFIRT A-Z:DIM XC4,12),YC4 

,12):GOSUB 1290 

140 RESTORE 140:FOR T=1 TO 4:FOR 1=1 TO 
12: READ XCT, I),YCT, I): REXT: REXT:DATA 0,- 

2, 0, -4, 0, -6, 0, -8, 0, -10, 1, -12,2, -14,3, -16 
, 4, -18,5, -20,7,-18,8,-16,1,-2,3 

150 DATA -4,5,-2,6, 0,7,2,8, 4,8,6, 8,8, 8,1 
0,8, 12, 8,14,8,16, -1, -2, -3, -4, -5, -2, -6,0, 
-7, 2, -8, 4, -8,6, -8,8,-8, 10, -8, 12, -8, 14, -8 
, 16,0,-2,0,-4 

160 DATA 0,-6,0,-8, 0,-10,-1,-12,-2,-14,- 

3, -16,-4,-18,-5,-20,-7,-18, -8,-16 

170 DDC2,2)=2:DDCO,0)=4:DDCO, 2)=3: DDC2, 0 
) = 1 

180 GOSUB 1990 

190 SC=0:HI = 1:LL=9: VI=5 

200 GOSUB 700 

210 FOR 1 = 1 TO 13: SOURD 1,0: REXT:SOURD 7 
,28: SOUND 12,10: SOURD 9, 16:SOURD 3,3:SOU 
RD 1,1:GOSUB 1130:SOURD 6,10:LOCATE 0,0: 
PRIRT "PURTI 

220 LOCATE 6,0:PRIRT USIRG ”#####”;SC:LO 
CATE 15,0:PRIRT " RECORD LOCATE 24,0: 
PRIRT USIRG ”#####";HS:LOCATE 0,23:PRIRT 
"LIVELLO";:PRIRT USIRG ”##";HI;:PRIRT " 
VITE”; VI ; 

230 IF IRKEYSO”” THER 230 
240 PUT SPRITE 0, CX*8+8,Y*8-4),4,3:FOR I 
=1 TO 3:PUT SPRITE I, CO,0),0,0:RBXT:SY=0 
:DI = 0:VT!=1 : HA!=HI/20:BY=0: IF HA!>1 THER 
HA! =1 

250 IF IHKEYSO”” THER 250 

260 LOCATE 12,2:PRIHT "PRORTO >>":IF IRK 

EY$="" THER 260 ELSE LOCATE 12,2:PRIRT ” 

270 AD=6145+X+Y*32;VP=VPEEKCAD):IF VP=97 
THER 610 ELSE IF VP=112 THER 630 ELSE I 
F VP=24 THEH 560 ELSE IF VP=32 OR VP=120 
THER 580 

280 XF=X:YF=Y:OR STICKCO) GOTO 290,330,3 

00,330,310,330,320:DI=0:GOTO 340 

290 Y=Y-2:X=X+1:DI = 1: GOTO 340 

300 Y=Y+2:DI=2:X=X+1: GOTO 340 

310 Y=Y+2:DI=3:X=X-1:GOTO 340 

320 Y=Y-2:D1=4:X=X-1:GOTO 340 

330 DI=0 

340 IF SY THER ELSE IF RRDC1XHA! THER S 
X=AX:SY=AY:FX=SX-1:FY=SY-2:DX=2:DY=2: VT! 
=VT!+.8:GOTO 430 ELSE 430 
350 AD=6145+SY*32+SX:VP=VPEEKCAD> : IF VP= 
32 OR VP=120 OR VP=24 THBR SOURD 10,14:S 
Y=0: SX=0:PUT SPRITE 1, CO, 0) , 0, 0: FX=0:FY= 
0: VT!=VT! -.8: LOCATE 6,0;SC=SC+100:PRIRT 
USIRG ”#####";SC:SOURD 10,0:GOTO 430 
360 TT=TT+1:IF TT/5=TT\5 THER TT=0 ELSE 
390 

370 DY=-1:DX=SGRCX-SX): IF DX=0 THER DX=1 
380 GOTO 410 

390 DX=SGHCX-SX):DY=SGHCY-SY>:IF DY=0 TH 
BH DY=1 

400 IF DX=0 THER DX=1 


























oooooooooooooooooooo 

LISTATO 

POPPO OQQQOOOOOO OOQO/ 
\oooo Pop 



720 ON NI-<<NI-1)\8>*8 GOTO 730,780,830, 
880,930,980,1030,1080 
730 LOCATE 0,3 
740 PRINT" pq 

hb 

plaq hbhb 

plaiaq 

hbhbhb” 

750 PRINT” piaiaiaq 

hbhbhbhb 

nplaialalaqn LJ hbhbhbh 

bhb 1 - 1 plaiaìaialaq 

hbhbhbhbhbhb” 

760 PRINT ” piaiaiaialalaq 

hbhbhbhbhbhbhb 

plaiaialaiaialaq hbhbhbhbh 

bbbhbhb plalalalalalalalaq 

hbhbhbhbhbhbhbhbhb 
éxéxéxéx&xéxéxéxéx” 

770 FI=45:TM=9: RETURN 
780 LOCATE 0,3 

790 PRINT ” pq pq 

hb hb 

piaq pq piaq hbhb h 

b hbhb plaiaq plaq piala 

q hbhbhb hbhb hbhbhb" 

800 PRINT ” piaiaiaqpixéaqpiaiaiaq 

hbhbhbhbhb hbhbhbhbhb n pia 

laialaix éaiaiaiaiaq n 1 - J hbhbhbhbhb 

hbhbhbhbhb ‘- 1 plaiaìaialaq ripiaiaial 

a 1 aq hbhbhbhbhbhb <-* hbhbhbhbhbhb” 

810 PRINT” éaiaiaiaiaix éaiaiaiaiaix 
hbhbhbhbhb hbhbhbhbhb éaia 

laialx éaiaiaiaix • hbhbhbhb 

hbhbhbhb éaiaiaix éaiaiai 

x hbhbhb hbhbhb 

éxéxéx éxéxéx” 

820 FI=71:KJ=7:RETURN 
830 LOCATE 0,3 

840 PRINT ” pqpqpq pq pqpqpq 

hbhbhb hb hbhbhb pi 

aiaiaqpiaqpiaiaiaq hbhbhbhbhbh 

bhbhbhbhb pixéaiaialxéaialaixéa 

q hb hbhbhb hbhbhb hb 

pix piaiaiaqpialaiaq éaq " 

850 PRINT ” hb hbhbhbhbhbhbhbhb hb 
npix éaiaiaiaiaiaiaix éaqn LJ hb 
hbhbhbhbhbhbhb hb L - 1 plaq éaiaixéx 
éaiaix plaq hbhb hbhb hbhb 

hbhb éalx éaix n éaix éaix h 

b hb ^ hb hb" 

860 PRINT ” éaqpqpqpiaqpqpqpiaqpqpqpix 
hbhbhbhbhbhbhbhbhbhbhbhb éaia 

iaiaiaialalalaialaix hbhbhbhbhbhb 

hbhbhbhbhb éxéxéxéxéxéxéxéxéxéxé 

x” i 

870 FI=79:RETURN 
880 LOCATE 0,3 

890 PRINT ” pq Pqpq 

hb hbhb p 

iaq pqpiaiaqpq hbhb 

hbhbhbhbhb plaiaq pialaiaiai 

aq hbhbhb hbhbhbhbhbhb 

piaiaiaq pixéaiaiaixéaqri” 

900 PRINT ” hbhbhbhb hb hbhbhb hb 1 - 
J ri piaiaiaiaqplx éaiaix éaq hbhb 

hbhbhbhb hbhb hb piaiaiaialalaq 
éaix pix hbhbhbhbhbhbhb hb 
hb éaiaiaiaiaixéaqnpiaq pix 

hbhbhbhbhb hb L - 1 hbhb hb ” 

910 PRINT ” éaiaiaiaix éaqpiaiaqpix 

hbhbhbhb hbhbhbhbhb éai 

aiaix éaiaiaiaix hbhbhb 


hbhbhbhb 


éxéxéx 


éxéxéxéx 


920 FI=71:RETURN 
930 LOCATE 0,3 

940 PRINT " pq pq pq pq pq 

hb hb hb hb hb pi 

aqpiaqpiaqpiaqpiaq hbhbhbhbhbh 

bhbhbhbhb pixéalxéalaiaixéalxéa 

q hb hb hbhbhb hb hb 

pix plaqpiaialaqpiaq éaq ” 

950 PRINT ” hb hbhbhbhbhbhbhbhb hb 
n pix plxéalxéxéxéalxéaq éaqn ‘- 1 hb h 
b hb hb hb hb 1 - 1 pix pix piaqn r 

ipiaq éaq éaq hb hb hbhb ‘- 1 LJ hbhb hb 
hb éaq éaq éalaqpqplalx pix pix h 
b hb hbhbhbhbhb hb hb" 

960 PRINT ” éaq éaq éaiaiaiaix pix pix 
hb hb hbhbhbhb hb hb éaq 

éaq éaiaiaix pix pix hb hb hbhb 

hb hb hb éx éx éxéxéx éx é 

x " ; 

970 FI=70:RETURN 
980 LOCATE 0,3 

990 PRINT " pq pqpq pq pqpq pq 

hb hbhb hb hbhb hb pia 

qpiaiaqpiaqpiaiaqpiaq hbhbhbhbhbhb 

hbhbhbhbhbhb piaiaiaiaiaiaiaiaialai 

aiaq hbhbhbhbhbhbhbhbhbhbhbhbhb p 

ialaiaixéaiaiaialxéaialaiaq” 

1000 PRINT ” hbhbhbhb hbhbhbhb hbhbhb 
hb piaiaiaiaqpiaiaiaiaqpiaiaiaiaq hbhbh 
bhbhbhbhbhbhbhbhbhbhbhbhb éaiaialaixéaia 
iaiaixéaiaiaiaix hbhbhbhb hbhbhbhb hb 
hbhbhb éaiaiaix éaiaiaix éaiaiaix 
hbhbhb hbhbhb hbhbhb” 

1010 PRINT ” éaiaix éaiaix éaiai 
x hbhb hbhb hbhb éa 

ix éalx éalx hb 

hb hb éx éx 

éx” 

1020 FI=89:RETURN 
1030 LOCATE 0,3 

1040 print ” pqpqpqpqpqpqpqpqpq 

hbhbhbhbhbhbhbhbhb. p 

iaiaiaiaialaiaiaiaq hbhbhbhbhb 

hbhbhbhbhb piaiaiaiaiaiaiaiaiai 

aq hbhbhbhbhbhbhbhbhbhbhb 

pialaiaiaiaiaiaiaiaiaiaq hbhbhbhb 

hbhbhbhbhbhbhbhb 

1050 PRINT ” ri piaiaiaiaixéaixéaiaiaiaiaq 
n hbhbhbhbhb hb hbhbhbhbhb^ piala 
iaiaiaq éx plaiaìaialaq hbhbhbhbhbhb 
hbhbhbhbhbhb piaiaiaialalaq n piaiaiai 
a la iaq hbhbhbhbhbhbhb 1 - 1 hbhbhbhbhbhbhb éa 
laiaiaiaiaiaqpiaiaiaiaialaix” 

1060 PRINT ” hbhbhbhbhbhbhbhbhbhbhbhbhbh 
b éaiaixéaiaixéaixéaiaixéaiaix hbhb 
hbhb hb hbhb hbhb éxéx éxéx é 

x éxéx éxéx” 

1070 FI=102:RETURN 
1080 LOCATE 0,3 

1090 PRINT ” pqpq pq pq pq pqpq 

hbhb hb hb hb hbhb pi 

aiaqpiaqpiaqp1aqpiaiaq hbhbhbhbhbh 

bhbhbhbhbhbhb pialaiaixéaixéaixéaia 

iaiaq hbhbhbhb hb hb hbhbhbhb 

pialaiaiaqpiaqpiaqpiaiaiaiaq” 

1100 PRINT” hbhbhbhbhbhbhbhbhbhbhbhbhbh 
b plaiaiaixéaixéaixéaixéaiaiaix hbhbhb 
hb hb hb hb hbhbhb piaiaiaix piaq é 
x piaq éaiaiaq hbhbhbhb hbhb hbhb h 
bhbhb éaiaiaix pixéaq ri pixéaq éaiaix hb 
hbhb hb hb‘- 1 hb hb hbhb ” 


12 




























1110 PRINT ” éaiaix piaq éaqpix piaq éal 


1470 DATA 32,120,160,112,40,240,32,0,192 

x hbhb hbhb hbhb hbhb hb éalx 


,200,16,32,64,152,24,0,6$,160,64,168 

pixéaq éaix plxéaqpix hb hb ■ hb 


1480 DATA 144,152,96,0,16,32,64,0,0,0,0, 

hb hb hbhb éx éx éx éx éx é 


0, 16,32,64,64,64,32, 16, 0 

‘ xéx ” 


1490 DATA 64,32,16,16,16,32,64,0,32,168, 

1120 FI=89:RETURN 


112,32,112,168,32,0,0,32,32,248 

1130 ON NI-<<NI-1>\8>*8 GOTO 1140,1150,1 


1500 DATA 32,32,0,0,0,0,0,0,0,32,32,64,0 

160,1170,1180,1190,1200,1210 


,0,0,120,0,0,0,0 

1140 X=14 :AX=X:Y=3:AY=Y:X1=X:X2=X:Y1=Y:Y 


1510 DATA 0,0,0,0,0,96,96,0,0,0,8,16,32, 

2=Y:RETURN 


64,128,0,112,136,136,0 

1150 X=15:Y=5:AX=15:AY=5:Xl=8:X2=22 : Yl=3 


1520 DATA 136,136,112,0,32,32,32,0,32,32 

:Y2=Y1:RETURN 


,32, P,112,8,8,112,128,128,112,0 

1160 Y=3:X=14 :AX-14 :AY=3: XI=6 :X2=22 : Yl=3 


1530 DATA 112,8,8,48,8,8,112,0,128,136,1 

:Y2=3:RETURN 


36,112,8,8,8,0,112,128,128,112 

1170 X=16:Y=5:AX=16:AY=5: XI=7:X2=19: Yl=3 


1540 DATA 8,8,112,0,112,128,128,112,136, 

:Y2=3: RETURN 


136,112,0,112,8,8,0,8,8,8,0 

1180 X=14:Y=3:AX=14:AY=3:Xl=6:X2=22: Yl=3 


1550 DATA 112,136,136,112,136,136,112,0, 

| :Y2=3:RETURN 


112, 136, 136, 112,8,8, 112,0, 0,0, 32, 0 

1190 X=15:Y=3:AX=15:AY=3:Xl=9:X2=21: Y2=3 


1560 DATA 0,32,0,0,0,0,32,0,0,32,32,64,2 

:Y1=3:RETURN 


4,48,96,192,96,48,24,0 

1200 X=14 :Y=4:AX=14 :AY=3: XI=8 :X2=20:Y2=3 


1570 DATA 0,0,248,0,248,0,0,0,192,96,48, 

i.Yl=3: RETURN 


24,48,96,192,0,112,136,8,16 

1210 Y=3: X= 15: AX=X: AY=Y:• Xl=7 : X2=23: Yl=3: 


1580 DATA 32,0,32,0,112,136,8,104,168,16 

Y2=3 : fcETURN 


8,112,0,124,254,130,130,254,254,130, 130 

1220 IF HS<SC THEN HS=SC 


1590 DATA 252,254,130,252,130,254,252,0, 

1230 LOCATE 0,0:PRINT "PUNTI LOCATE 6 


124,254,130,128,130,254,124,0,252,254,13 

,0:PRINT USING ”#####”;SC: LOCATE 15,0:PR 


0,130 

INT " RECORD LOCATE 24,0:PRINT USING 


1600 DATA 130,254,252,0,254,254,130,248, 

”#####”;HS 


130,254,254,0,254,254,130,248,128,128,12 

1240 LOCATE 0,23:PRINT "LIVELLO”;:PRINT 


8 , 0 

USING "##”; NI;:PRINT ” VITE”: VI; 


1610 DATA 124,254,128,158,130,254,124,0, 

1250 LOCATE 10,11: PRINT ” GAME OVER ”:L 


198,198,130,254,130,198,198,0,56,56,16,1 

OCATE 10,10:PRINT " ":LOCATE 1 


6 

0, 12: PRINT » 


1620 DATA 16,56,56,0,62,62,8,8,136,248,1 

1260 IF INKBYSO”" THEN 1260 ELSE TT=0 


12,0,140,152,240,224,240,152,140,0 

1270 TT=TT+1:IF TT>1000 THEN TT=0:GOTO 1 


1630 DATA 128,128,128,128,130,254,254,0, 

80 


238,254,186,146,146,130,130,0,194,226,17 

1280 IF INKEY$=”” THEN 1270 ELSE 190 


8 , 154 

1290 COLOR 2,0,0:SCREEN 1,2,0:VIDTH 31:K 


1640 DATA 142,134,130,0,124,254,130,130, 

EY OFF:LOCATE 7,11:FRINT "ATTENDI 


130,254,124,0,252,254,130,252, 128, 128,12 

1300 RESTORE 1330 


8 , 0 

1310 FOR 1=8 TO 1055 : READ A:VPOKE I,A:NE 


1650 DATA 124,254,130,130,138,244,122,0, 

XT 


252,254,130,252,176,152,140,0, 124,254, 12 

f 1320 RESTORE 1870:FOR 1=8192 TO 8223:REA 


8 , 124 

D A:VPOKE I,A:NEXT 


1660 DATA 2,254,124,0,254,254,16,16,16,1 

1330 DATA 0,126,126,126,126,126,126,0,60 


6 , 16, 0, 130, 130, 130, 130,130,254,124,0 

,126,219,255,255,219,102,60,0,3,7,15 


1670 DATA 130,130,130,198,108,56,16,0,13 

1340 DATA 31,63,127,255,255,254,252,248, 


0,130,146,146,186,254,238,0,132,204,120, 

240,224,192,0,16,56,84,254,84,16,56,0 


48 

! 1350 DATA 16,56,124,254,254,16,56,0,0,0, 


1680 DATA 120,204,132,0,130,198,108,56,1 

0,48,48,0,0,0,255,127,63,31 


6,16,16,0,254,6,12,24,48,96,254,0 

1360 DATA 15,7,3,0,0,192,224,240,248,252 


1690 DATA 112,64,64,64,64,64,112,0,0,0,1 

,254,255,199,187,125,125,125,187,199,255 


28,64,32,16,8,0,112,16,16,16 

1370 DATA 15,3,5,121,136,136,136,112,56, 


1700 DATA 16,16,112,0,32,80,136,0,0,0,0, 

68,68,68,56,16,124,16,48,40,36,36 


0,0,0,0,0,0,0,248,0 

1380 DATA 40,32,224,192,60,36,60,36,36,2 


1710 DATA 64,32,16,0,0,0,0,0,0,3,7,15,31 

28, 220,24, 16,84,56,238,56,84,16,0 


,63, 127,255,255,254,252', 248 

1390 DATA 0,3,7,15,31,63,127,255,0,192,2 


1720 DATA 240,224,192,0,0,0,112,136,128, 

24,240,248,252,254,255,0,0,0,255 


136,112,0,8,8,104,152,136,152,104,0 

1400 DATA 16,16,16,16,16,16,16,240,16,16 


1730 DATA 0.0,112,136,248,128,112,0,16,4 

,16,16,16,16,16,31,16,16,16,16 


0,32,248,32,32,32,0,0,0,104,152 

1410 DATA 16,16,16,255,16,16,16,16,16,16 


1740 DATA 152,104,8,112,255,127,63,31,15 

, 16, 16, 16, 16, 16, 16,0, 0, 0,255 


,7,3,0,0,192,224,240,248,252,254,255 

1420 DATA 0,0,0,0,0,0,0,0,3,8,60,126,0,0 


1750 DATA 16,0,48,16,16,16,144,96,64,64, 

,0,0,192,16,60,126,126,60,8,3,0,0, 0, 0, 12 


72,80,96,80,72,0,96,32,32,32 

6,60, 16, 192,0,0,0,0 


1760 DATA 32,32,112,0,0,0,208,168,168,16 

1430 DATA 129,66,36,24 


8,168,0,0,0,176,200,136,136,136,0 

1440 DATA 24,36,66,129,1,2,4,8,16,32,64, 


1770 DATA 0,0,112,136,136,136,112,0,0,3, 

128,128,64,32,16,8,4,2,1 


7,15,31,63,127,255,0,192,224,240 

1450 DATA 0,16,16,255,16,16,0,0,0,0,0,0, 


1780 DATA 248,252,254,255,0,0,176,200,12 

0,0,0,0,32,32,32,32 


8,128,128,0,0,0,120,128,240,8,240,0 

1460 DATA 0,0,32,0,80,80,80,0.0,0,0,0,80 


1790 DATA 64,64,240,64,64,72,48,0,0,0,14 

,80,248,80,248,80,80,0 


4,144,144,144,104,0,0,0,136,136 


13 

























1800 DATA 136,80,32,0,0,0,136,168,168,16 

8 , 80,0, 1,3,7, 15, 31,63,127, 255 

1810 DATA 0,0,136,136,152,104,8,112,0,0, 

248,16,32,64,248,0,24,32,32,64 

1820 DATA 32,32,24,0,32,32,32,0,32,32,32 

,0,192,32,32,16,32,32,192,0 

1830 DATA 64,168,16,0,0,0,0,0,0,0,32,80, 

248, 0,0,0,112, 136, 128,128 

1840 DATA 136, 112,32,96, 144,0,0, 144, 144, 

144,104,0,128,192,224,240,248,252,254,25 

5 

1850 DATA 32,80,112,8,120,136,120,0,72,0 
,112,8,120,136,120,0,32,16,112,8 
1860 DATA 32,80,112,8,120,136,120,0,72 
1870 DATA 217,216,208,32,160,176,160,160 
,128,128,128,128,169,168,161,9,8,144,32, 
32,144,32 

1880 DATA 32,32,32,32,32,32,32,32,32,32 
1890 RESTORE 1900 

1900 AS=””:FOR 1=1 TO 32:READ A:AS=AS+CH 
RS(A):EEXT:SPRITES <3>=AS:DATA 0,3,7,11,1 

I, 7,31,47,44,27,3,3,1,3,2,0,0,224,240, 12 
0,120,248,248,120,240,240,224,96,176,96, 
64,0 

1910 AS="”:FOR 1=1 TO 32:READ A:AS=AS+CH 
RS(A):NEXT:SPRITES <2>=AS:DATA 0,7,15,30, 
30,31,31,30,15,15,7,6,13,6,2,0,0,192,224 
,208,208,224,248,244,52,216,192,192,128, 
192,64,0 

1920 ÀS=””:FOR 1=1 TO 32:READ A:AS=AS+CH 
RS <A):NEXT:SPRITES <1>=AS:DATA 0,7,15,31, 
31,31,31,31,15,15,7,6,13,6,2,0,0,192,224 
,192,192,208,248,248,240,224,192,192,128 
,192,64,0 

1930 A$=””:FOR 1=1 TO 32:READ A:AS=AS+CH 
RS <A>: NEXT: SPRITES<4>=AS:DATA 0,3,7,3,3, 

II, 31,31,11,7,3,3,1,3,2,0,0,224,240,248, 
248,248,248,248,240,240,224,96,176,96,64 
, 0 

1940 ..FOR 1=1 TO 32:READ A:AS=AS+CH 

RS <A):NEXT:SPRITES <5>=AS:DATA 0,3,7, 14,2 
8,25,27,24,28,14,7,19,24,28, 15,7,112,168 
,248,80,0,240,248,56,24,56,240,.224,0,8,2 
40,224 

1950 AS=””:FOR 1=1 TO 32:READ A:AS=AS+CH 
RS <A>:NEXT:SPRITES <8)=AS:DATA 0,3,7,14,2 
8,25,27,24,28,14,7,19,24,28,15,7,112,168 
,248,80,0,240,248,56,24,56,240,224,0,8,2 
40,224 

1960 ..FOR 1=1 TO 32:READ A:AS=AS+CH 

RS(A):NEXT:SPRITES<9)=AS:DATA 0,0,0,3,7, 
7, 15, 15, 15, 15, 7, 7,3, 0,0, 0, 0, 0, 0, 192,224, 
96,176,176,240,240,224,224,192,0,0,0 
1970 AS=”*’ : FOR 1 = 1 TO 32: AS=AS+CHRS (255) 

:NEXT:SPRITES <0>=AS 
1980 RETURN 

1990 CLS:FOR 1=0 TO 10:PUT SPRITE I,<0,0 
>,0,31:NEXT 

2000 PRINT ”pqpqpqpqpqpqpqpqpqpqpqpqpqpq 
pq hbhbhbhbhbhbhbhbhbhbhbhbhbhbhb éaixfix 
éxéxéxéxéxéxéxéxéxéxéaìx hb JACKSON 
PRESENTA hb piaqpqpqpqpqpqpqpqpqpqpq 
pqplaq hbhbhbhbhbhbhbhbhbhbhbhbhbhbhb éx 
éxéxéxéxéxéxéxéxéxéxéxéxéxéx” 

2010 PRINT:PRINT ” pqpqpqpqpqpqpqpqpq 
pqpq hbhbhbhbhbhbhbhbhbhbhb 

éaixéxéxéxéxéxéxéxéaix hb 

Q_BERT hb plaqpqpqpqpqpq 

pqpqplaq hbhbhbhbhbhbhbhbhbhbhb 

6xéx6xéxéx6x6x6x6x4xéx" 

2020 PRINT:PRINT " pqpqpqpqpqpqpqpqpqpqpq 
pqpqpqpq hbhbhbhbhbhbhbhbhbhbhbhbhbhbhb 
éaixéxéxéxéxéxéxéxéxéxéxéxéaix hb , DI K 


AURIZIO GALLUZZO hb plaqpqpqpqpqpqpqpq 
pqpqpqpqplaq hbhbhbhbhbhbhbhbhbhbhbhbhbh 
bhb éxéxéxéxéxéxéxéxéxéxéxéxéxéxéx”; 

2030 IF INKEYSO”” THEN 2030 ELSE ZZ=360 
:TIKB=0:AS=” Q_BERT . 

... PREHI UN TASTO PER INIZIARE .... ATT 

ENDI ALCUNI SBCONDI PBR LE ISTRUZIONI .. 
»* 

2040 BEEP: PLAY ”tl99o5n5000slll8cccl6dfa 
ar218cccl4dfgr218cccl4df116ggr618ggl14af 
dft199o3m5000slll8cccl6dfaar218cccl4dfgr 
218cccl4df116ggr618ggll4afdf” 

2050 FOR 1=32 TO 250 STEF 16:VPOKB 8200, 

I :VPOKE 8201, I :VPOKE 8202, I :VPOKE 8203, I 
: IF INKEYSO”” THEN 2070 

2060 PUT SPRITB 0, <30000-TIXB,54>,5,3iPU 
T SPRITE 1,(TIME-30000,120>,6,5:IF INKEY 
SO”" THBN 2110 

2070 TT=TT+1:IF TT>1 THEN AS=RIGHTS(AS,L 
BN(AS)-l)+LEFTS(AS,l):LOCATE 0,15:PRINT 
LEFTS <AS,31)i :TT= 0:ZZ=ZZ-1: IF ZZ=0. THEN 
2130 

2080 FOR YY=1 TO 30:NEXT 
2090 IF INKEYSO"” THBN 2110 
2100 NEXT:GOTO 2050 

2110 BEEP:1=128:FOR UU=8200 TO 8203:VPOK 
E UU, I:NEXT 
2120 RBTURN 

2130 1=128:FOR UU=8200 TO 8203:VPOKE UU, 

I :NBXT 

2140. FOR 1 = 1 TO 500: NBXT: PUT SPRITE 0, <0 
,0),0,0:PUT SPRITB 1,(0,0),0,0:PUT SPRIT 
E 2, <0,0>,0,0:CLS:RBSTORE 2170 
2150 FOR 1 = 0 TO 13:SOUND 1,0:NBXT: SOUND 
7,55:SOUND 8,16:SOUND 12,3:SOUND 6,20 
2160 READ AS:IF AS="+++” THEN 2250 ELSE 
IF AS=”se” THEN READ XX,YY:LOCATE XX,YY:G 
OTO 2220 ELSE IF AS=”C" THEN PRINT " ”j: 
GOTO 2220 ELSE SOUND 13,0:PRINT ASì:GOTO 
2220 

2170 DATA SE, 11, 0, I ,Q, _, B, E, R,T, C , Jt, 1,2,U 
,N,C ,G, I,0,C,0,C ,D, I, C ,M,A,U,R, I,Z, 1,0,1 
, G, A, L, L, U, Z, Z, O 

2180 DATA SE, 0, 5, G, U, I, D, A, [ , I, L, I , S, I, M, 
P, A, T, I,C,Q,C ,C ,Q,_,B,E,R,T,C ,F, I,N,0,A, 

I , C , C, O, L, O, R, A, R, E, I , I , T, U, T, T, I, I , I, I , 

C, U,B, I, t ,D,B,G,L, I,0,T,T,Q,t , S, C, H, E, R, 
M, I, I , D, I, I , G, I, O, C, 0, . , se, 0, 10, I , - , P, R, E 
,M, I, I ,U,N,C ,T,A,S,T,0,[ ,P,B,R,C , I, N, I,Z 
, I, A, R, E, - 

2190 DATA se, 0, 15, I , P, E, R, I , M, U, O, V, E, R, T 
, I, I , U, S, A, C ,L,E, I ,F,R,E,C,C,E,se, 1, 17, S, 
A, L, I, C , A, I , D, E, S, T, R, A, t , . , . , . , . , . , . ,D, 
E, S, T, R, A 

2200 DATA se, 1, 18, S, A, L, I, C , A, I , S, I, N, I, S 
, T, R, A, . , . ..A, L, T, O, sE, 1, 19, S, C, E, N, 

D, I, C ,A,I ,D,E,S,T, R,A,.. . , B, A, S, S, 

O, se, 1,20, S, C, E, N, D, I,C,A,C,S,I,N,I,S,T,R 
, A, . , . , . ,S, I, N, I,S,T,R,A.+++ 

2210 END 

2220 1=48:FOR UU=8200 TO 8203:VPOKE UU, I 
: NEXT 

2230 FOR T=1 TO.30:IF INKEYSO”" THEN 21 
10 

2240 NEXT:GOTO 2160 

2250 FOR Z=1 TO 40:1=INT(RND(1)*14+2>*16 

: FOR UU=8200 TO 8203:VPOKE UU, I :NEXT 

2260 FOR SQ=1 TO 200 :NEXT:NEXT 

2270 FOR NI=1 TO 8:BEEP:PLAY "tl5018sllm 

9000o6dc”:GOSUB 700:FOR T=1 TO 500:IF IN 

KEYSO"" THEN 2110 

2280 NEXT:NEXT:GOTO 1990 
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SQUALO DOCCIAIO 

Occupazione di memoria: 14464 Byte. Configurazione richiesta: almeno 32 KByte 


I l programma vi metterà al comando di un som¬ 
mergibile impegnato nell'affondamento di alcu¬ 
ne navi nemiche. Sullo schermo (dopo il DEMO) 
apparirà l'immagine di un periscopio, i punti, il nu¬ 
mero di siluri, il valore dei record precedenti. Quan¬ 
do supererete il valore di 150 otterrete un bonus 
indicato dalla scritta lampeggiante in basso a de¬ 
stra. Potete muovere lo schermo con le frecce cur¬ 
sore e sparare con il tasto di SPACE. Potete sceglie¬ 
re tra l'uso del joystick o dei tasti cursore. La scelta 
viene fatta all'inizio con l'uso delle frecce e confer¬ 
mando con SPACE. Il programma è organizzato 
con una serie di routine e questo consente una faci¬ 
le modificazione del programma stesso. 

ELENCO SINGOLE ISTRUZIONI 

10/210 Inizializzazione variabili e programma 

220/620 Presentazione del programma, scelta 
del joystick o della tastiera 

630/780 Crea SPRITE 

790/990 Disegno schermo di gioco 

1000/1180 Routine principale 

1190/1360 Routine di tiro 

1370/1630 Esplosione nave 

1640/1770 Disegno record 

1780/1920 Stampa punteggio 

1930/2090 Fine del programma 

2100/2240 Tiro nave 

2250/2440 BONUS 


10 REM ************************** 
40 REM * SQUALO D’ACCIAIO * 

90 REM ************************** 
120 KEY OFF 
130 CLEAR 2000 
140 DIM HI<900) 

150 DT=2 

160 FOR 1=1 TO 3 
170 READ Y < I ) 

180 NEXT 

190 DATA 0,85,130 
200 X=50 

210 OPEN ”grp:” FOR OUTPUT AS #1 
220 REM 


230 REM ********************** 

250 REM * PRESENTAZIONE * 

270 REM ********************** 

290 SCREEN 2,0 
300 COLOR 1,1,1 
310 CLS 

320 FOR 1=1 TO 3 
330 C<I)=11 

340 NEXT 
350 X=0 

360 LINE <0,10)-<265,50),4,BF 
370 PSET <20,15),4 

380 PRINT #1,” SQUALO D’ACCIAIO” 

390 PSET <20,16),4 

400 PRINT #1," SQUALO D’ACCIAIO” 

410 PSET <30,40),4 

420 PRINT #1,” di Maurizio Galluzzo" 

430 PSET ' <130,120) 

440 DRAV ”c3170h214m-10,-20r8m+70,-2ul2r 
4ul0dl0r4ul0dl0r4d4rl0u414rl0u4dl6r4r54m 
+6, -2iii—40, +20g6140” 

450 VlS=”tl8014vl5o4gbo5cl2dl4del8fedcl2 
dl4dl32rl4o4gbo5cl2dl4del8fedclld” 

460 V2$=”t18014o5vl5do4abl2o5cl4co4bl8o5 
co4bagl2al4al32rl4bo5do4abo513cl8do514bl 
8bal3allgl4o4” 

470 PLAY "xvlS;xv2$;" 

480 COLOR 4 

490 PRESET <30,160) 

500 PRINT #1,”- Uso della tastiera” 

510 COLOR 4 

520 PRESET <30,180) 

530 PRINT #1,’’- Uso del Joystick” 

540 SPRITES <1)=CHRS <8)+CHR$ <4>+CHR$<2)+C 
HRS<255)+CHRS<2)+CHRS <4)+CHRS <8)+CHRS <0) 
550 Y=160 

560 PUTSPRITE 1,<15,Y),6 

570 IF STICK <0) OR STICK<1)=1 THEN P=0: 
Y=160 

580 IF STICK <0) OR STICK<1)=5 THEN P=l: 
Y=180 

590 IF STRIG <0) OR STRIG<1)=-1 THEN 630 
ELSE 560 

600 FOR I%=0 TO 13 
610 SOUND 1%,0 
620 NEXT 

640 REM ********************** 

660 REM * CREA SPRITE * 

680 REM ********************** 

700 SCREEN 2,3 
710 S=1 
720 BEEP 

730 FOR I%=1 TO 8 

740 READ F 

750 A$=A$+CHRS<F) 

760 NEXT 

770 SPRITES <1)=A$ 

780 DATA 0,0,0,96,96,255,254,0 
790 REM 


15 






































800 REM ********************** 

820 REM * SCHERMO DI GIOCO * 

840 REM ********************** 

860 X=0 

870 SC=0 

880 CC=0 

890 COLOR 4,1,1 

900 CLS 

910 PSET <0,0),4:PRINT #1,” PUNTI 
SILURI” 

920 CIRCLEC132,96),95,,,,1.3 

930 PAINT (132,2),4 

940 LINE <207,96)-<57,96),1 

950 LINE <132,0)-<132,192),1 

960 GOSUB 1640 

970 COLOR 6 

980 Y=85 

990 GOSUB 1890 

1010 REM ********************** 

1030 REM * ROUTINE PRINCIPALE * 

1050 REM ********************** 

1070 PAINT <250, 190), 1 
1080 C=1 
1090 X=X+S 

1100 PUT SPRITE 1, <X,Y>, 1 
1110 J=S 

1120 IF X>230 THBN Z=0:X=1 
1130 IF S=3 THEN GOSUB 2100 
1140 IF STICK <P)=1 THEN Y=Y+1 
1150 IF STICK (P)=5 THEN Y=Y-1 
1160 IF STRIG (P)THEN GOSUB 1190 
1170 IF Z=1 THEN 1600 
1180 GOTO 1080 

1200 REM ********************** 

1220 REM * TIRO * 

1240 REM ********************** 

1260 IF Y<85 THEN RETURN 

1270 COLOR 1:GOSUB 1870 

1280 CC=CC+1:IF CC=31 THEN GOSUB 1930 

1290 FOR 1=192 TO Y+10 STBP -4 

1300 PSET<132, I) , 2 

1310 GOSUB 1620 

1320 NEXT 

1330 IF X>=117 AND X<=132 THEN 1360 
1340 LINE<132,Y-10)-<132,192),1 
1350 OP=0:C0L0R6:GOSUB 1870:GOTO 1080 
1370 REM ********************** 

1390 REM * ESPLOSIONE NAVE * 

1410 REM ********************** 

1430 COLOR 1:GOSUB 1780:COLOR 6 
1440 SC=SC+10*S 

1450 SOUND 0,0:SOUND 6,20:SOUND 7,147:SO 
UND 12,36 

146Ò FOR X%=8 TO 10 

1470 SOUND XX, 16 

1480 NEXT 

1490 SOUND 13,0 

1500 FOR Q=1 TO 500:NEXT 

1510 FOR 1=1 TO 15 STEP 1.5 

1520 CIRCLB <132,Y+10), I, I 

1530 NEXT 

1540 FOR 1=1 TO 15 

1550 CIRCLE <132,Y+10),I,4 

1560 NEXT 

1570 LINE <58,96)-<205,96),1 
1580 LINE <132,0>-<132,192),1 
1590 X=1 : COLOR 6:GOSUB 1780: IF SC>150 Tfl 
EN CB=CB+1:IF CB=1 THEN GOSUB 2260 ELSB 
1600 S=FIX<RND(1)*DT>+1:IF J=S THEN S=S+ 
1 

1610 GOTO 1080 

1620 X=X+S:PUT SPRITB 1,<X,Y),1 
1636» RETURN 


1650 REM ********************** 

1670 REM * DISEGNO RECORD * 

1690 REM ********************** 

1710 PSET <10,124),4:PRINT #1,"RECORD” 
1720 PSET <10,125),4:PRINT #1,"RECORD" 
1730 LINE <20,40)-<60,10),4,B 
1740 LINE <215,40)-<245,10),4,B 
1750 FOR 1=1 TO 5 

1760 LINE <10,130+1*10)-<50,140+1*10),4 
, B 

1770 NEXT 

1790 REM ********************** 

1810 REM * STAMPA PUNTI * 

1830 REM ********************** 

1850 PSET <25,20),1 

1860 PRINT #1,SC 

1870 PSET <217,20),1 

1880 PRINT #1,CC: RETURN 

1890 FOR 1=1 TO 5 

1900 PSET <15, <130+I*10)+1),1 

1910 PRINT #1,HI<I) 

1920 NEXT:RETURN 

1940 REM ********************** 

1960 REM * FINE PROGRAMMA * 

1980 REM ********************** 

2000 FOR U%=0 TO 13:SOUND U%,0:NEXT 
2010 BEEP:PLAY ”t200n6000slll8cccl6dfaar 
218cccl4dfgr218cccl4df116ggr618ggl4afdf” 
2020 H=H+1:IF H>5 THEN H=5 
2030 HI<H)=SC 

2040 PUT SPRITE 1, <X,208),1 
2050 COLOR 1,15,15:CLS:PSET<10,100),15:P 
RINT#1,” PREMI LA BARRA PER CONTINUARE ” 
2060 PSET<10,101),15:PRINT#1," PREMI LA 
BARRA PER CONTINUARE ” 

2070 GS=INKEY$ 

2080 IF GSO” " THEN 2070 
2090 GOTO 790 

O 1 1 A D T7 IT ^ 'X' X* ‘X’ ^ 4* 4^4' 4 4 4 4 4 44 4 4 4 4 

O X 1 V Il FI -T 4 *+ ^ t' •+ +■ -TV ^ «T* -T* ^ 'T' ^ ^ 'T v •+ 4* T* T* T* 

2130 REM * TIRO NAVE * 

2150 REM ********************** 

2170 IF POINT <X,Y)<>4 OR Z=1 THEN RETUR 
N 

2180 FOR R=1 TO 4:BEEP:NEXT:FOR J=1 TO 4 

; PLAY ”mis818gr14g” : GOSUB 1620:NEXT 

2190 IF STICK <P)=1 THEN Y=Y+1 

2200 IF STICK <P>=5 THEN Y=Y-1 

2210 IF STRIG <P> THBN 1190 

2220 LINE <X,Y)-<132,192),15:FOR 1=1 TO 

10:NEXT:LINE <X,Y)-<132,192),4:Z=1 

2230 IF Y>85 THEN 1930 

2240 RETURN 

2260 REM ********************** 

2280 REM * BONUS * 

2300 REM ********************** 

2320 BEEP 

2330 PLAY "tl50n6000elll8cccl6dfaar218cc 
cl4dfgr218cccl4df116ggr618ggl4afdf" 

2340 FOR J=1 TO 5 

2350 FOR 1=15 TO 1 STEP-1 

2360 COLOR I 

2370 PSBT <210,180),1 

2380 PRINT #1,"BONUS” 

2390 NEXT 
2400 NEXT 
2410 CC=0 

2420 COLOR 1:GOSUB 1870:CC=0:COLOR 4 
2430 GOSUB 1870 
2440 RETURN 
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CORSO PRATICO 
DI LINGUAGGIO 
MACCHINA 


P er capire come si possa pro¬ 
grammare un computer MSX 
in linguaggio macchina è neces¬ 
sario conoscere poche ma impor¬ 
tanti nozioni sulla struttura interna 
del computer. In questa prima 
parte ci interesseremo anche dei 
sistemi di numerazione diversi ri¬ 
spetto a quello decimale e il mio 
consiglio è quello di eseguire tutti 
gli esercizi in maniera graduale e 
continuativa. La programmazione 
in linguaggio macchina non è cer¬ 
to tra gli argomenti più facili da 
affrontare ma gli esempi inseriti 
dovrebbero facilitarvi notevol¬ 
mente l'apprendimento. 

PERCHÈ LINGUAGGIO 
MACCHINA 

Dopo aver programmato in BA¬ 
SIC si sente spesso l'esigenza di 
usare un linguaggio più veloce e 
in grado di accedere ad alcune 
funzioni non presenti in BASIC. Il 
linguaggio macchina è il linguag¬ 
gio più veloce e flessibile ma ha 
una serie di svantaggi: è difficile 
da usare, possiede centinaia di 
istruzioni, è difficile da usare con 
numeri con la virgola, se si fa un 
errore, molto spesso il computer si 
blocca e bisogna spegnerlo e 
riaccenderlo. Date tutte queste 
difficoltà sono stati creati dei lin¬ 
guaggi ad "alto livello" quali BA¬ 
SIC, PASCAL, LOGO eccetera. 
Sono più facili da usare ma terri¬ 
bilmente lenti. Molto spesso è dif¬ 
ficile realizzare effetti grafici quali 
animazione o movimento. 

COME FUNZIONA UN 
COMPUTER 

Lo schema tipico di un computer è 
il seguente: 

L'unità di ingresso è composta 
dalla tastiera (o dalla penna otti¬ 
ca, dalla tavoletta grafica, ecce¬ 
tera), l 'unità di uscita è il monitor 
(o la stampante, il plotter eccete¬ 
ra), la memoria secondaria è da¬ 



ta dal registratore a cassette o le 
unità a dischi. 

Tutti questi elementi confluiscono 
nella CPU. Nel caso dei computer 
MSX è il processore Z80A (o an¬ 
che una delle sue numerose ver¬ 
sioni). 

Nella memoria principale sono 
immagazzinati i programmi che 
"girano" nel computer. 

La memoria del computer si divi¬ 
de in due tipi: MEMORIA ROM 
(memoria di sola lettura) e ME¬ 
MORIA RAM (memoria di lettura 
e scrittura). Nella memoria ROM 
risiede il sistema operativo, in 
uella RAM i programmi scritti 
all'utente e i dati. 

La programmazione in linguaggio 
macchina consiste nell'inserire nei 
registri dell'unità di processo una 
serie di numeri, e su di essi ese¬ 
guire dei calcoli semplici come 
somme, sottrazioni e operazioni 
booleane. Prima di parlare di 
questo vediamo però alcuni siste¬ 
mi di numerazione. 



Fig. 1 - Struttura del calcolatore 


SISTEMI DI 
NUMERAZIONE 

SISTEMA BINARIO 

Il sistema di numerazione normal¬ 
mente utilizzato è quello a base 
10 . 


Es: il numero 324 può essere 
espresso come: 

3 x IO 2 = 300 

2 x 10' = 20 

4 x 10° = 4 

324 

Il sistema binario usa invece come 
base il numero 2 perciò: 

2 ° = 1 

2 1 = 2 

2 2 = . 4 

2 3 = 8 

2 4 = 16 

2 5 - 32 

2 6 = 64 

2 7 = 128 

255 

Se noi usiamo numeri a 8 bit 
(composti cioè da cifre che pos¬ 
sono essere 0 o 1 ) il massimo nu¬ 
mero rappresentabile è 255, quel¬ 
lo minimo è 0. 

Proviamo a rappresentare un nu¬ 
mero: 

2 7 2 6 2 5 2 A 2 3 2 2 2 1 2 ° 
decimale 128 64 32 16 8 4 2 1 
es: 10 0 110 0 1 

sarà uguale a: 

128 + 

12 + 

8 + 

1 + 

153 decimale 
da cui: 

10011001 =153 
binario decimale 

Usando il sistema binario si pos¬ 
sono eseguire anche delle ope¬ 
razioni di somma tenndo presen¬ 
te questa tabella: 

0 + 0=0 
0 + 1 = 1 
1 + 0 = 1 
1 + 1 = 10 

perciò: 

decimale binario 

-178 64 32 16 8 4 2 1 
141 + 10001101+ 

37 = 00100101 = 

V78 10110010 

SISTEMA ESADECIMALE 

Il sistema di rappresentazione 
esadecimale permette di rappre- 















































sentore i numeri da 0 a 15 usan¬ 
do solo 4 bit. Ecco come: 

binariodecimale esadecimale 
84 2 1 


0000 

0 

0 

00011 1 

00 10 

2 

2 

00 11 

3 

3 

0 100 

4 

4 

0 10 1 

5 

5 

Olio 

6 

6 

Olii 

7 

7 

1000 

8 

8 

100 1 

9 

9 

1 0 1 010 

A 

10 1 111 

B 

1 1 0012 

C 

noi 

13 

D 

1 1 1 014 

E 

1111 

15 

F 


Se dobbiamo rappresentare nu¬ 
meri maggiori di 15 si possono 
usare più cifre esadecimali acco¬ 
state allo stesso modo in cui si fa 
con quelle decimali: 

Es: 

10 (esadecimale) = 

1 * 16 = 16 

0 * 1 = 0 



2E (esadecimale) = 

2*16= 32 

E * 1 = 14 

46 decimale 

1839 (esadecimale) = 

1 * 4096 = 4096 

8 * 256 = 2048 

3* 16= 48 

9 * 1 = 9 

6201 decimali 

Per facilitare le operazioni di cal¬ 
colo è stata fornita anche una 
tabella di conversazione dei nu¬ 
meri da 0 a 255. Per passare da 
un numero decimale a uno esa¬ 
decimale è sufficiente cercarlo 
all'interno della tabella. La riga 
indicherà il primo numero, la co¬ 
lonna il secondo. 

Es. numero decimale = 109, ve¬ 
diamo che la riga corrisponden¬ 
te è 6, e la colonna è D quindi il 
numero cercato è appunto 6D. 
Se abbiamo il numero esadeci¬ 
male C4, cerchiamo la riga C e 
la colonna 4. Alla congiunzione 
tra le due linee troviamo il nume¬ 
ro 196 che è appunto il valore 
cercato. 


Con questo listato è possibi¬ 
le ottenere la tabella di con¬ 
versione presentata in que¬ 
ste pagine. È sufficiente col¬ 
legare una stampante da 80 
colonne e mandare in esecu¬ 
zione il programma. 

10 REM *************************** 


20 REM * * 
30 REM * * 
40 REM * CONVERSIONE DEC./ESA. * 
50 REM * * . 


60 REM *************************** 

70 REM 
80 REM 

90 LPRINT CHRS <14>; 

100 LPRINT "DECIMALE - ESADECIMALE”' 
110 LPRINT CHRS <15) 

120 LPRINT CHR$ <27);”B" : 'NESSUN SALTO 
DI LINEA 

130 LPRINT " ”; 

140 FOR 1=0 TO 15 

150 LPRINT HBXS<I>s" "; 

160 NEXT 
170 LPRINT 
180 LPRINT 

190 LPRINT " ,- 


200 LPRINT ” |" 

210 FOR 1=0 TO 15 

220 LPRINT HEXS <I>;” |" ; 

230 FOR J=0 TO 15 

240 LPRINT USING "####";16*I+J ; 

250 NEXT 

260 LPRINT 

270 LPRINT " I" 

280 NEXT 


SISTEMA OTTALE 

Come si può arguire dal nome, è 
un sistema di numerazione a ba¬ 
se 8, come dalla seguente ta¬ 
bella: 


BINARIO 

OTTALE 

000 

0 

001 

1 

010 

2 

011 

3 

100 

4 

101 

5 

110 

6 

111 

7 


Il passaggio dal binario allottale 
è immediato, si considerano i bit 
del numero binario a tre a tre. 
Es. Il numero binario 111011 è 
uguale a 73 ottale perché: 

111=7 
Oli = 3 

Esistono nel BASIC MSX una se¬ 
rie di comandi che vi permettono 
di compiere tutti questi calcoli 
molto rapidamente. Vediamoli: 
BIN$: Viene data una rappre¬ 
sentazione binaria del numero 


16 decimale 
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decimale. Il risultato di questa 
funzione è un valore alfanumeri¬ 
co e come tale può venire tratta¬ 
to. Il valore decimale inserito de¬ 
ve essere compreso tra -32768 
e +65535. I valori negativi ven¬ 
gono sottoposti a complemento 
a due. Un argomento di cui 
avremmo modo di parlare in se¬ 
guito. Per il momento basta sa¬ 
pere che l'espressione 
BIN$ (-A) corrisponde a BIN$ 
(65536-A) 

Vediamo un esempio: 

10 A$=BIN$(58) 

20 PRINT A$ 

RUN 

111010 

HEX$: La funzione restituisce il 
valore esadecimale di un nume¬ 
ro decimale. L'output è un valore 
alfanumerico. Il valore decimale 
deve essere un intero compreso 
tra -32768 e +65535. Se il nu¬ 
mero è negativo viene fatto il 
complemento a 2. 

Esempio: 

10 A$ = HEX$(58) 

20 PRINT A$ 

RUN 

3A 

OCT$: Viene data una rappre¬ 
sentazione ottale del numero de¬ 
cimale. I limiti sono quelli stabiliti 
sopra con la stessa prassi per 
quanto riguarda i numeri nega¬ 
tivi. 

Esempio: 

10 A$ = OCT$(58) 

20 PRINT AS 

RUN 

72 

Per esercitarvi potrete scrivere 
questo breve programma: 

10 INPUT "Dammi il valore deci¬ 
male ";d 

20 PRINT "BINARIO...";BIN$(d) 
30 PRINT "ESADECIMALE 
. " ; H EX$(d) 

40 PRINT "OTTALE...";OCT$(d) 

50 PRINT "." 

60 GOTO 10 

Usate CONTROL + d per inter¬ 
rompere. 

Vi consiglio di usare il sistema 
esadecimale fino a quando 
avrete la piena padronanza del 
sistema di numerazione perché è 

11 più usato in questo campo. 




LETTORE HEADER 
DA CASSETTA 

Q uando è necessario ese¬ 
guire una copia di sicu¬ 
rezza di un programma in lin¬ 
guaggio macchina (non per ese¬ 
guire copie pirata!!) bisogna co¬ 
noscere l'indirizzo di inizio, di fine 
e da dove parte. Questi dati sono 
impossibili da rintracciarsi se non 
si dispone di un programma hea- 
der come il seguente. Caricate il 
programma (è presente registrato 
su cassetta quindi: CLOAD "hea- 
der") e mandatelo in esecuzione 
con RUN. 

Inserite la cassetta nel registratore 
poco prima della parte in l.m. e 
mandatelo in PLAY. Dopo pochi 
istanti apparirà il nome del file e 
gli altri dati. Per il funzionamento è 
stata scritta una routine in 1 m che 
legge il contenuto di alcuni registri 
dove vengono depositati i dati. Il 
programma funziona anche con 
l'unità a dischi inserita ma legge 
unicamente gli header da cas¬ 
setta. 


10 REM *************************** 

20 REM * * 

30 REM * * 

40 REM * LETTORB DI HEADER * 

50 REM * * 

60 REM * * 

70 REM * di Maurizio Galluzzo * 

80 REM * * 

90 REM *************************** 

100 REM 

110 REM 

120 SCRBEN 0 

130 VIDTH 40 

140 COLOR 15,1 

150 KEY OFF 

160 CLEAR 200,&H8FFF 

170 CLS 

180 LOCATE 11,2 

190 PRINT "LETTORB DI HEADER" 

200 PRINT:PRINT:PRINT 

210 PRINT "INSERISCI LA CASSETTA E PREM 
I <RBTURN>" 

220 IF INKBY*="" THEN 220' 

230 PRINT 

240 PRINT SPC(11);"LETTURA IN CORSO" 

250 PRINT:PRINT:PRINT 

260 FOR I=&H9100 TO &H912B 

270 RBAD AS 

280 POKE I, VAL<"Ah"+AS> 

290 NEXT 

300 DBFUSR=&H9100 

310 FOR I=&H9000 TO &H9020 

320 POKE I,0 

330 NEXT 

340 L=USR(0) 

350 NS="" 



360 FOR I=&H9000 TO &H9005 
370 NS=NS+CHR$(PEEK( I ) > 

380 NEXT 

390 PRINT " NOME DEL FILE ; " ; N 

S 

400 PRINT 
410 I=&H9006 

420 AD$=HBXS (PBEK (I>+256*PEEK(I + l> > 

430 PRINT " INDIRIZZO DI INIZIO : » ; A 
D$ 

440 PRINT 

450 AFS=HEXS(PEEK(I+2> +256*PEEK<1+3)) 
460 PRINT " INDIRIZZO DI FINE : "}A 
FS 

470 PRINT 

480 PES=HEXS(PEEK(I+4)+256*PEEK(I+5)> 
490 PRINT " INDIRIZZO PARTENZA : ";P 
ES 

500 PLAY "DEDC" 

510 REM 

520 REM ************************* 

530 REM * * 

540 REM * DATI * 

550 REM * * 

560 REM ************************* 

570 REM 

580 DATAf3,0e,dO,cd,e9,72,06,0a,cd,d4,7 
2,b9,20,f5,10,f8,21,00,90, 06. 06,cd,d4,72 
,77,23, lO.f9, cd, «9,72, 06, 06,cd,d4,72, 77, 
23,10,f9,cd,©7,00,c9 


ELENCO VARIABILI 


AD$ 

INDIRIZZO INIZIO 

AF$ 

INDIRIZZO DI FINE 

1 

CICLO 

L 

VARIABILE DI LAVORO 

N$ 

NOME DEL FILE 

PE$ 

INDIRIZZO DI PARTENZA 


SEGNALATORE 

SOFTWARE 


Questo semplice programma può 
essere inserito come routine 
quando è necessario segnalare il 
verificarsi di una certa situazione. 
Inizierà a lampeggiare l'indicato¬ 
re del CAPS e verrà emesso un 
segnale acustico. Una occasione 
per imparare a usare le porte 
OUT. 


10 REM *************************** 

20 REM * * 

30 REM * SEGNALATORE SOFTWARE * 

40 REM * * 

50 REM *************************** 

60 REM 
70 REM 
80 SCRBEN 0 
90 VIDTH 40 
100 CLS 

110 LOCATE 9,7 

120 PRINT "SEGNALATORE SOFTWARE" 

130 LOCATB 6,10 

140 PRINT "PREMI UN TASTO PER FINIRE" 
150 OUT &HAB,12 : ’ ACCBNDI CAPS 
160 BEEP 

170 FOR F=1 TO 100 :NBXT 

180 OUT &HAB,13 : ’ SPBGNI CAPS 

190 FOR F=1 TO 100:NEXT 

200 IF INKEY$="" THEN 150 

210 CLS 

220 END 
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